home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FAN10.L2 < prev    next >
Text File  |  1996-04-01  |  4KB  |  137 lines
  1. name Fanuc 10T
  2.  
  3. % 00
  4. O >4
  5. N >3
  6. G >2
  7. X ->3.>4
  8. Z ->3.>4
  9. D >2
  10. I ->3.>4
  11. K ->3.>4
  12. U ->3.>4
  13. W ->3.>4
  14. A 60 P
  15. P ->3.>4
  16. Q ->3.>4
  17. q >4 Q
  18. R ->3.>4
  19. F >3.>3
  20. T 2
  21. t 2
  22. S >4
  23. M >2
  24.  
  25. ModalLetters X Z I K F S M            # List of letters that are modal    
  26.  
  27. ModalGs 0 1 2 3 80 81 82 83 84 85     # List of g codes that are modal    
  28.  
  29. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  30. First#? N                             # Y or N  'Output 1st sequence no.  
  31. Last#? N                              # Y or N  'Output last sequence no. 
  32.  
  33. HCode Z                               # X or X U  'Horizontal char.       
  34. VCode X                               # Y or Y V  'Vertical char.         
  35. FeedCode F                            # Feed rate char.                   
  36.  
  37. Comment ( )                           # Begin End comment char.           
  38.  
  39. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  40. Coolant 8 9 7                         # On, Off & Mist m codes            
  41. SpeedType G 97 96                     # CSS and RPM g codes               
  42. FeedType G 95 94                      # IPR & IPM g codes                 
  43. Dcomp 41 42 40                        # Left, Right & Cancel m codes      
  44.  
  45. Feed G1                               # Linear move                       
  46. Rapid G0                              # Rapid positioning word            
  47. Cw G2                                 # Circular move clockwise           
  48. Ccw G3                                # Circular move counter clockwise   
  49.  
  50. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  51.  
  52. Inch/MM 20 21                         # Inch & Metric g codes             
  53.  
  54. CtrCode R                             # I J or R or I J K L               
  55.  
  56. ByDiameter? Y                         # Y or N  'Output X val. by diameter
  57.  
  58. RevSigns X                            # List of letters to reverse signs
  59.  
  60. Spaces? N                             # Y or N  'Spaces between words     
  61.  
  62. Incremental? N                        # Y or N  'Inc or abs output        
  63. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  64. ByQuadrants? Y                        # Y or N  'Break arcs at quadrants  
  65.  
  66. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  67.  
  68. Drill                                 # Drilling canned/manual cycle      
  69. G74 R[Depth]
  70. G74 Z[Depth] F[FRate]
  71. end
  72.  
  73. Peck                                  # Pecking canned/manual cycle       
  74. G74 R[Depth]
  75. G74 Z[H] Q[SBite] F[FRate]
  76. end
  77.  
  78. Tap                                   # Tapping canned/manual cycle       
  79. G84 Z[H] F[FRate]
  80. end
  81.  
  82. Ream                                  # Reaming canned/manual cycle       
  83. G85 Z[H] F[FRate]
  84. end
  85.  
  86. Bore                                  # Boring canned/manual cycle        
  87. G74 R0
  88. G74 Z[H] R[SClear] F[FRate]
  89. end
  90.  
  91. AutoThread                            # Automatic thread canned cycle     
  92. G76 A[TParams] Q[VBite] R0
  93. G76 X[V] Z[H] P[Peck1] Q[VLeave] R0 F[Frate]
  94. end
  95.  
  96. Cancel                                # Cancel a canned/manual cycle      
  97. G80
  98. end
  99.  
  100. StartCode                             # Start of the program              
  101. %0
  102. O[Program#]
  103. End
  104.  
  105. 1stToolChange                         # First tool change                 
  106. G0 X[Val1] Z[Val2]
  107. T[Tool] t0
  108. G[FeedType] G[SpeedType] S[Speed] M[Direct]
  109. G0 X[V] Z[H] T[Tool] t[Dcomp] M[Cool]
  110. End
  111.  
  112. Infeed                                # Enable cutter comp                
  113. G1 G41 X[V] Z[H] D[Dcomp] F[FRate]
  114. end
  115.  
  116. Outfeed                               # Disable cutter comp               
  117. G1 G40 X[V] Z[H] F[FRate]
  118. end
  119.  
  120. ToolChange                            # Secondary tool changes            
  121. G0 T[LastTool] t0 Z[Val2] M5
  122. T[Tool] t0
  123. G[FeedType] G[SpeedType] S[Speed] M[Direct]
  124. G0 X[V] Z[H] T[Tool] t[Dcomp] M[Cool]
  125. End
  126.  
  127. EndCode                               # End of the program                
  128. G0 X[Val1] Z[Val2] T[Tool] t0 M5
  129. M30
  130. %0
  131. End
  132.  
  133. Ask [Val1] " Enter the X [radius] home value: " "5.0"
  134. Ask [Val2] " Enter the Z home value: " "10.0"
  135.  
  136. Replace "t" with ""
  137.